home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 092 - EBU.dsk / EXPERIMENTAL / IN.OUT.DEMO.bas < prev    next >
BASIC Source File  |  2019-02-17  |  2KB  |  41 lines
  1. 0  REM   &INPUT DEMO<CTRL-J><CTRL-J><CTRL-J>Nov 30 86  jpe
  2. 10  REM 
  3. 100  TEXT : HOME : SPEED= 255: CLEAR :D$ =  CHR$(4)
  4. 105  PRINT D$;"pr#3": PRINT  CHR$(7): NORMAL 
  5. 110  PRINT : PRINT D$;"brun/blank3/tools/in.out"
  6. 120  INVERSE : PRINT "Now loading command handler for &INPUT statement.": NORMAL 
  7. 130  PRINT : PRINT "To demonstrate the use of the &INPUT    statement in Applesoft BASIC programs,  enter any string. The string may contain commas and such not normaly exceptable to Applesoft."
  8. 140  PRINT : PRINT "Enter your string here:";
  9. 145  &  INPUT A$
  10. 150  PRINT : PRINT : PRINT A$: PRINT 
  11. 160  PRINT : PRINT "Notice that the word wraparound is functional as well as the delete function.   Commas are accepted.   There is an insert cursor.  Etc...etc"
  12. 170  REM    End Pg# 1)<CTRL-J>
  13. 200  REM      Pg# 2)<CTRL-J><CTRL-J>
  14. 210  REM   june 30  87 addendum* <CTRL-J>
  15. 220  PRINT : PRINT : PRINT "Now try some things that would normally stump applesoft input statements."
  16. 230  PRINT "This would, definetly, cause some problems!"
  17. 240  PRINT : PRINT "Enter your string here:";
  18. 245  &  INPUT A$
  19. 250  PRINT : PRINT : PRINT "Your string as accepted by our new &input Statement??": PRINT 
  20. 255  PRINT : PRINT A$
  21. 260  PRINT : PRINT "Now try something really neat.  Type something in, ANYTHING, now press the DELE-TE key.  Wow!  Now try to insert something!": PRINT 
  22. 270  PRINT : PRINT "Enter your string here:";
  23. 280  &  INPUT A$
  24. 290  PRINT : PRINT : PRINT "Your string as accepted by our new &input Statement??": PRINT 
  25. 295  PRINT : PRINT A$
  26. 300  REM     Pg# 3)<CTRL-J>
  27. 310  PRINT : PRINT "Now type in the last string over again, this time I'll Demonstrate The OLD Apple-Soft INPUT statement."
  28. 320  PRINT : PRINT "Enter your string here:";: INPUT O$
  29. 340  PRINT : PRINT : PRINT "Your string as accepted (IGNORED) by the standard INPUT Statement?": PRINT : PRINT : PRINT O$
  30. 360  PRINT : PRINT "That concludes this short DEMO.  You are on your own!": PRINT "This Program will continue  to loop until this string is entered: ": PRINT 
  31. 370  PRINT "I will BRUN IN.OUT, Whenever I Boot Applesoft! "
  32. 380  PRINT : PRINT "Enter your string here:";
  33. 390  &  INPUT A$
  34. 395  IF  LEFT$(A$,8) = "I will B"  THEN 430
  35. 400  PRINT : PRINT : PRINT "Your string as accepted by our new &input Statement??": PRINT 
  36. 410  PRINT : PRINT A$
  37. 420  GOTO 360
  38. 430  HOME : VTAB 24: HTAB 20: PRINT "A)pplesoft Basic : M)enu";
  39. 440  GET B$
  40. 450  IF B$ < >"A"  AND B$ < >"a"  THEN  PRINT D$;"-/blank3/menu": NEW 
  41. 460  PRINT : PRINT : PRINT